I was thinking of something like this, in a button in a draft memo in the mail database that you want to fix:
Sub Click(Source As Button)
Dim session As New NotesSession
session.CurrentDatabase.GetProfileDocument("CalendarProfile").Remove True
End Sub